VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BCompania"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarsRuc As String
Private mvarsRazonSocial As String
Private mvarbEstado As bestado
Private mvarbPorDefecto As Boolean
Private mvarsSlogan As String
Private mvarsTelefono As String
Private mvarsDireccion As String
Private mvarsPieDeTicket As String
Private mvarsAbreviatura As String
Public Property Get sSlogan() As String
    sSlogan = mvarsSlogan
End Property
Public Property Let sSlogan(ByVal vData As String)
    mvarsSlogan = vData
End Property
Private Sub Class_Initialize()
Set bestado = New bestado
End Sub
Private Sub Class_Terminate()
    Set mvarbEstado = Nothing
End Sub
Friend Property Get bestado() As bestado
    Set bestado = mvarbEstado
End Property
Friend Property Set bestado(bestado As bestado)
    Set mvarbEstado = bestado
End Property
Friend Property Let sRazonSocial(ByVal vData As String)
    mvarsRazonSocial = vData
End Property
Friend Property Get sRazonSocial() As String
    sRazonSocial = mvarsRazonSocial
End Property
Friend Property Let sRuc(ByVal vData As String)
    mvarsRuc = vData
End Property
Friend Property Get sRuc() As String
    sRuc = mvarsRuc
End Property
Friend Property Get bPorDefecto() As Boolean
    bPorDefecto = mvarbPorDefecto
End Property
Friend Property Let bPorDefecto(ByVal bPorDefecto As Boolean)
    mvarbPorDefecto = bPorDefecto
End Property
Public Property Get sTelefono() As String
    sTelefono = mvarsTelefono
End Property
Public Property Let sTelefono(ByVal sTelefono As String)
    mvarsTelefono = sTelefono
End Property
Public Property Get sDireccion() As String
    sDireccion = mvarsDireccion
End Property
Public Property Let sDireccion(ByVal sDireccion As String)
    mvarsDireccion = sDireccion
End Property
Public Property Get sPieDeTicket() As String
    sPieDeTicket = mvarsPieDeTicket
End Property
Public Property Let sPieDeTicket(ByVal sPieDeTicket As String)
    mvarsPieDeTicket = sPieDeTicket
End Property
Public Property Get sAbreviatura() As String
    sAbreviatura = mvarsAbreviatura
End Property
Public Property Let sAbreviatura(ByVal sAbreviatura As String)
    mvarsAbreviatura = sAbreviatura
End Property


